unit U_Dm_Procedures;

interface

uses
  SysUtils, Classes, DB, IBCustomDataSet, IBStoredProc;

type
  TDm_Procedures = class(TDataModule)
    IBS_InsAlt_Clientes: TIBStoredProc;
    IBS_InsAlt_ClientesRESPOSTA: TIntegerField;
    IBS_Apaga_Clientes: TIBStoredProc;
    IBS_Apaga_ClientesRESPOSTA: TIntegerField;
    IBS_InsAlt_Empresa: TIBStoredProc;
    IBS_InsAlt_Fornecedores: TIBStoredProc;
    IBS_Apaga_Fornecedores: TIBStoredProc;
    IBS_InsAlt_Plano_Contas: TIBStoredProc;
    IBS_Apaga_Plano_Contas: TIBStoredProc;
    IBS_InsAlt_Produtos_Tipo: TIBStoredProc;
    IBS_Apaga_Produtos_Tipo: TIBStoredProc;
    IBS_InsAlt_Cartoes: TIBStoredProc;
    IBS_Apaga_Cartoes: TIBStoredProc;
    IBS_InsAlt_Unidade: TIBStoredProc;
    IBS_Apaga_Unidade: TIBStoredProc;
    IBS_InsAlt_Produtos: TIBStoredProc;
    IBS_Apaga_Produtos: TIBStoredProc;
    IBS_InsAlt_Produtos_Obs: TIBStoredProc;
    IBS_Apaga_Produtos_Obs: TIBStoredProc;
    IBS_InsAlt_Produtos_ObsRESPOSTA: TIntegerField;
    IBS_InsAlt_Produtos_Grade: TIBStoredProc;
    IBS_Apaga_Produtos_Grade: TIBStoredProc;
    IBS_InsAlt_Mv_Estoque: TIBStoredProc;
    IBS_InsAlt_Mv_Historico: TIBStoredProc;
    IBS_Apaga_Mv_Historico: TIBStoredProc;
    IBS_InsAlt_Mv_Financeiro: TIBStoredProc;
    IBS_Apaga_Mv_Financeiro: TIBStoredProc;
    IBS_Apaga_Mv_Estoque: TIBStoredProc;
    IBS_Insert_Alicota: TIBStoredProc;
    IBS_Apaga_Alicota: TIBStoredProc;
    IBS_Altera_Produtos: TIBStoredProc;
    IBS_APAGA_MARCAS: TIBStoredProc;
    IBS_INSALT_MARCAS: TIBStoredProc;
    IBS_InsAlt_Mv_Vendas: TIBStoredProc;
    IBS_Apaga_Mv_Vendas: TIBStoredProc;
    IBS_InsAlt_Clientes_Obs: TIBStoredProc;
    IBS_Apaga_Clientes_Obs: TIBStoredProc;
    ALT_PRODCODBAR: TIBStoredProc;
    IBS_InsAlt_Mv_VendasRESPOSTA: TIntegerField;
    IBS_Apaga_Mv_Movimento: TIBStoredProc;
    IBS_InsAlt_Mv_Movimento: TIBStoredProc;
    IBS_InsAlt_Mv_MovimentoRESPOSTA: TIntegerField;
    IBS_Apaga_Mv_MovimentoRESPOSTA: TIntegerField;
    IBS_InsAlt_EmpresaRESPOSTA: TIntegerField;
    IBS_InsAlt_Terminais: TIBStoredProc;
    IBS_InsAlt_TerminaisRESPOSTA: TIntegerField;
    IBS_Apaga_Terminais: TIBStoredProc;
    IBS_ImportaProdutos: TIBStoredProc;
    IBS_ImportaProdutos_Grade: TIBStoredProc;
    IBS_IMPORTA_GRUPOS: TIBStoredProc;
    IBS_APAGA_Natureza: TIBStoredProc;
    IBS_InsAlt_Natureza: TIBStoredProc;
    IBS_APAGA_NaturezaRESPOSTA: TIntegerField;
    IBS_InsAlt_NaturezaRESPOSTA: TIntegerField;
    IBS_AlteraQtdeProdutos: TIBStoredProc;
    IBS_IMPORTA_FORNECEDORES: TIBStoredProc;
    IBS_InsAlt_NotaFiscal: TIBStoredProc;
    IBS_Importa_Marcas: TIBStoredProc;
    IBS_Importa_MarcasRESPOSTA: TIntegerField;
    IBS_InsAlt_NotaFiscalRESPOSTA: TIntegerField;
    IBS_InsAlt_ItensNota: TIBStoredProc;
    IBS_IMPORTA_CLIENTES: TIBStoredProc;
    IBS_Altera_Qtde_Estoque: TIBStoredProc;
    IBS_Apaga_OrigemDestino: TIBStoredProc;
    IBS_Insalt_OrigemDestino: TIBStoredProc;
    IBS_Apaga_OrigemDestinoRESPOSTA: TIntegerField;
    IBS_Insalt_OrigemDestinoRESPOSTA: TIntegerField;
    IBS_BaixaMvFinanceiro: TIBStoredProc;
    IBS_Apaga_CaixaGeral: TIBStoredProc;
    IBS_InsAlt_CaixaGeral: TIBStoredProc;
    IBS_InsAlt_Banco: TIBStoredProc;
    IBS_Apaga_Banco: TIBStoredProc;
    IBS_Apaga_Cad_Cheque: TIBStoredProc;
    IBS_InsAlt_Cad_Cheque: TIBStoredProc;
    IBS_InsAlt_RecDesp: TIBStoredProc;
    IBS_Apaga_RecDesp: TIBStoredProc;
    IBS_Alt_Mv_Movimento: TIBStoredProc;
    IBS_Alt_Mv_MovimentoRESPOSTA: TIntegerField;
    IBS_Apaga_Orcamento: TIBStoredProc;
    IBS_Alt_EtiquetaEmpresa: TIBStoredProc;
    IBS_InsAlt_CodBarra: TIBStoredProc;
    IBS_Apaga_CodBarra: TIBStoredProc;
    IBS_IMPORTA_CODBARRA: TIBStoredProc;
    Proc_Generica: TIBStoredProc;
    IBS_InsAlt_Carro: TIBStoredProc;
    IBS_Apaga_Carro: TIBStoredProc;
    IBS_InsAlt_Mv_Carro: TIBStoredProc;
    IBS_InsAlt_Cliente_Entrega: TIBStoredProc;
    IBS_InsAlt_Simulacao: TIBStoredProc;
    procedure AlteraMv_MovimentoEntregue(vModoVenda, vCodProduto:integer; vTerminal,vEntregue:string);
    procedure AlteraMv_MovimentoSeleciona(vModoVenda:Integer; vTerminal,vSeleciona, vTipo:string);
    procedure ApagaMesas(vMesa:integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Dm_Procedures: TDm_Procedures;

implementation

uses U_menu;

{$R *.dfm}

{ TDm_Procedures }

procedure TDm_Procedures.AlteraMv_MovimentoEntregue(vModoVenda, vCodProduto:integer; vTerminal,vEntregue:string);
begin
  Dm_Procedures.Proc_Generica.StoredProcName:='ALTERA_MV_MOVIMENTO_ENTREGUE';



  Dm_Procedures.Proc_Generica.ParamByName('MODO_VENDA').AsInteger:=vModoVenda;
  Dm_Procedures.Proc_Generica.ParamByName('TERMINAL').AsString:=vTerminal;
  Dm_Procedures.Proc_Generica.ParamByName('COD_PRODUTO').AsInteger:=vCodProduto;
  Dm_Procedures.Proc_Generica.ParamByName('ENTREGUE').AsString:=vEntregue;


  Dm_Procedures.Proc_Generica.Prepare;
  Dm_Procedures.Proc_Generica.ExecProc;
  Dm_Procedures.Proc_Generica.UnPrepare;
end;

procedure TDm_Procedures.AlteraMv_MovimentoSeleciona(vModoVenda: Integer;
  vTerminal, vSeleciona, vTipo: string);
begin
  if not Menu_Retaguarda.IBT_Retaguarda.InTransaction then
     Menu_Retaguarda.IBT_Retaguarda.StartTransaction;


  Dm_Procedures.Proc_Generica.StoredProcName:='ALTERA_MV_MOVIMENTO_SELECIONA';


  Dm_Procedures.Proc_Generica.ParamByName('MODO_VENDA').AsInteger:=vModoVenda;
  Dm_Procedures.Proc_Generica.ParamByName('TERMINAL').AsString:=vTerminal;
  Dm_Procedures.Proc_Generica.ParamByName('SELECIONA').AsString:=vSeleciona;
  Dm_Procedures.Proc_Generica.ParamByName('TIPO').AsString:=vTipo;


  Dm_Procedures.Proc_Generica.Prepare;
  Dm_Procedures.Proc_Generica.ExecProc;
  Dm_Procedures.Proc_Generica.UnPrepare;

  if Menu_Retaguarda.IBT_Retaguarda.InTransaction then
     Menu_Retaguarda.IBT_Retaguarda.Commit;
end;

procedure TDm_Procedures.ApagaMesas(vMesa: integer);
begin

    if not Menu_Retaguarda.IBT_Retaguarda.InTransaction then
       Menu_Retaguarda.IBT_Retaguarda.StartTransaction;

    Dm_Procedures.Proc_Generica.StoredProcName:='APAGA_VENDAMESA';

    Dm_Procedures.Proc_Generica.ParamByName('MESAVENDA').AsInteger:=vMesa;

    Dm_Procedures.Proc_Generica.Prepare;
    Dm_Procedures.Proc_Generica.ExecProc;
    Dm_Procedures.Proc_Generica.UnPrepare;


    if Menu_Retaguarda.IBT_Retaguarda.InTransaction then
     Menu_Retaguarda.IBT_Retaguarda.Commit;


end;

end.
